home *** CD-ROM | disk | FTP | other *** search
- ; DEMO2.MAC, Macro demo for DANCAD3D v2.5B release version
-
- ; Copyright (c) 1987-1990, Daniel H. Hudgins, All rights reserved.
- ; Other macro files come with the registered user outfit.
- ; Write to: DANCAD3D, 466 Diamond St., San Francisco, CA 94114, USA.
-
- ; Begin set up
-
- INIT ; clear DANCAD3D's workspace
- WORLD 240 ; set world scale to inches
-
- ; End Set up
-
- RUN DEMO2B.SUB ; Intro message.
-
- RUN DEMO2C.SUB ; Make Gears.
-
- RUN DEMO2D.SUB ; Text for first part of this demo.
-
- RUN DEMO2E.SUB ; Active part of first demo.
-
- RUN DEMO2F.SUB ; Text for second part of this demo.
-
- RUN DEMO2G.SUB ; Active part of second part of this demo.
-
- RUN DEMO2H.SUB ; Text for third part of this demo.
-
- RUN DEMO2I.SUB ; Active part of third part of this demo.
-
- ; Start Final words
-
- TEXT
-
- ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
- ECHO │ DEMO2.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER. │
- ECHO └─────────────────────────────────────────────────────────────────────────────┘
- LOCATE 1 5
- ECHO Well that's all for this demo. The gears are still in the workspace so you
- ECHO can work with them if you wish. Press [Return] to exit to the main menu then
- ECHO press [D] to go into the drawing editor. Press [Return] when asked which
- ECHO elements to display, then pick the [F]ront view to display. Press [D] to enter
- ECHO the drawing sub-menu then press the [+] key to zoom in. Move the zoom border
- ECHO around with your mouse-trackball or cursor keys, then press the [*/PrtSc] key
- ECHO to redraw the screen. Play with the zoom for a while by using [+] to zoom in
- ECHO and [-] or [S]cale to zoom out. If you want to make your own drawing press
- ECHO [Return] back to the drawing root menu then press [I] (initialize) to clear the
- ECHO workspace. Press [T] (tutor) and read the explanation of how to draw lines.
- LOCATE 5 25
- ECHO Press [Return] to return to DANCAD3D's Main Menu. %%
-
- WAIT
-
- ; End Final Words
-
- ; End DEMO2.MAC
-
-
-
-
-
-
-
-
-